home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 214
- Top = 131
- HelpContext = 1
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'MP3 Compressor'
- ClientHeight = 335
- ClientWidth = 377
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 8
- Top = 320
- Width = 3
- Height = 13
- Hint = 'The Format you have selected'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object VersionLabel: TLabel
- Left = 304
- Top = 323
- Width = 66
- Height = 11
- Hint = 'That'#39's me ;)'
- Caption = 'v0.9f by MP3hC'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object GroupBox1: TGroupBox
- Left = 216
- Top = 0
- Width = 153
- Height = 48
- Caption = 'Player'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- object FormatLabel: TLabel
- Left = 9
- Top = 33
- Width = 135
- Height = 11
- Hint = 'Format of the selected item'
- Alignment = taCenter
- ParentShowHint = False
- ShowHint = True
- end
- end
- object Button2: TButton
- Left = 144
- Top = 290
- Width = 89
- Height = 20
- Hint = 'Compress the selected Files'
- Caption = 'Compress'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = Button2Click
- end
- object FileListBox1: TFileListBox
- Left = 216
- Top = 50
- Width = 153
- Height = 233
- Hint = 'Select files you want to compress'
- ItemHeight = 13
- Mask = '*.wav'
- MultiSelect = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnChange = FileListBox1Down
- OnClick = FileListBox1Change
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 8
- Top = 50
- Width = 161
- Height = 233
- Hint = 'Choose the Directory of the WAV files to compress'
- FileList = FileListBox1
- ItemHeight = 16
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = DirectoryListBox1Change
- end
- object DriveComboBox1: TDriveComboBox
- Left = 8
- Top = 26
- Width = 105
- Height = 19
- Hint = 'Choose the drive of the files to compress'
- DirList = DirectoryListBox1
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object Button4: TButton
- Left = 344
- Top = 282
- Width = 18
- Height = 15
- Hint = 'Select All Files from Directory'
- Caption = '*.*'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = Button4Click
- end
- object PrefButton: TButton
- Left = 32
- Top = 290
- Width = 75
- Height = 20
- Hint = 'Choose your Preferences'
- Caption = 'Preferences...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = PrefButtonClick
- end
- object MediaPlayer: TMediaPlayer
- Left = 222
- Top = 12
- Width = 141
- Height = 20
- Hint = 'Play the Selected Item'
- EnabledButtons = [btNext, btPrev, btRecord, btEject]
- VisibleButtons = [btPlay, btPause, btStop, btStep, btBack]
- AutoEnable = False
- DeviceType = dtWaveAudio
- FileName = 'C:\BROL\mp3\test\disk117.wav'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = MediaPlayerClick
- end
- object Button1: TButton
- Left = 8
- Top = 290
- Width = 17
- Height = 20
- Hint = 'About this...F1 for help'
- Caption = '?'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = AboutClick
- end
- object ListBox: TListBox
- Left = 200
- Top = 50
- Width = 17
- Height = 233
- ItemHeight = 13
- TabOrder = 8
- end
- end
-